Data Base of the Video Yearbook 1995/Data Base of the Video Yearbook 1995 - Disc 1.iso/cosmos/aiuew.dir/00006.ls

Text File | 1995-12-21 | 521 b | 18 lines

on tkensaku kasira
  global taidata, mydatebase, taitoru
  set tkazu to the number of items in taidata
  set mae to EMPTY
  repeat with n = 1 to tkazu - 1
    set tno to value(item n of taidata)
    set taitoru to item 2 of line tno of mydatebase
    set name to item 11 of line tno of mydatebase
    if name <> "0" then
      put speaceadjust(taitoru, 40) & name & RETURN after mae
      next repeat
    end if
    put taitoru & RETURN after mae
  end repeat
  put mae into field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  updateStage()
end